home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
aie8911.zip
/
ARITY5.ARI
< prev
next >
Wrap
Text File
|
1989-08-22
|
4KB
|
102 lines
%%%%%%%%%%%%%%%%%%%%%% end genned decs %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
:- extrn monitor / 1 : interp.
:- extrn graphics_card / 1 : interp.
%%%%%%%%%%%%%%%%%%%%%% end hand coded decs %%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%% start of code after headers %%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%% list_to_text %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
list_to_text( List, String ) :-
list_text( List, String).
%%%%%%%%%%%%%% get_cfg_file %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
get_cfg_file :-
reconsult_if_there($conman.cfg$).
%%%%%%%%%%%%%%%%%%%%%% cursor control predicates %%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%% cursor control predicates %%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%% cursor control predicates %%%%%%%%%%%%%%%%%%%
/************** cursor boundaries *************************************/
/* These are cursor scan line boundaries. Scan lines are numbered from
0 starting at the top of a char. box. The number of scan lines in
a character box is hardware dependent. Therefore we access the
facts in conman.cfg to determine the scan lines that we need.
*/
% cursor cursor display graphics card scan
% type side type type line #
cursor_scan_line( normal, top, mono, mono, 11) :- !.
cursor_scan_line( normal, bottom, mono, mono, 13) :- !.
cursor_scan_line( invisible, top, mono, mono, 14) :- !.
cursor_scan_line( invisible, bottom, mono, mono, 10) :- !.
cursor_scan_line( normal, top, _ , _ , 11).
cursor_scan_line( normal, bottom, _ , _ , 13).
cursor_scan_line( invisible, top, _ , _ , 14).
cursor_scan_line( invisible, bottom, _ , _ , 10).
:- mode set_cursor( + ) .
set_cursor( Cursor_type) :-
call( monitor( Monitor)),
call( graphics_card( Card)),
cursor_scan_line( Cursor_type,
top,
Display_type,
Card_type ,
Top_scan_line),
cursor_scan_line( Cursor_type,
bottom,
Display_type,
Card_type ,
Bottom_scan_line),
set_cursor( Top_scan_line, Bottom_scan_line),
!.
set_cursor( _ ) .
hide_cursor :-
set_cursor(invisible).
restore_cursor :-
set_cursor(normal ).
%%%%%%%%%%%%%%%%%% end cursor control predicates %%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% end cursor control predicates %%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% end cursor control predicates %%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% garbage collection %%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% garbage collection %%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% garbage collection %%%%%%%%%%%%%%%%%%%%%%%%%%%%
garbage_collection :-
gc.
%%%%%%%%%%% case insensitive string search %%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%% case insensitive string search %%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%% case insensitive string search %%%%%%%%%%%%%%%%%%%%%%%%%
:- mode case_insensitive_string_search( +, +, - ).
case_insensitive_string_search( Substring, Main_string, Location) :-
string_search( 1, Substring, Main_string, Location).
anchored_case_insensitive_string_search( Substring, Main_string) :-
string_search( 1, Substring, Main_string, 0 ).
%%%%%%%%%%%%%%%%%% eof %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% eof %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% eof %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%